* lisp/dom.el (dom-texts): Simplify (Bug#36441).

diff --git a/lisp/dom.el b/lisp/dom.el
index e4da63d8476591285fcc5a888d7e8f1eb6a34d6e..d8c44339985e64aa1f75c3ae4bf9d3d5fde0a1a9 100644 (file)
--- a/lisp/dom.el
+++ b/lisp/dom.el
@@ -81,17 +81,15 @@ A typical attribute is `href'."
   (if (eq (dom-tag node) 'script)
       ""
     (mapconcat
-     'identity
-     (mapcar
-      (lambda (elem)
-        (cond
-         ((stringp elem)
-         elem)
-         ((eq (dom-tag elem) 'script)
-          "")
-         (t
-         (dom-texts elem separator))))
-      (dom-children node))
+     (lambda (elem)
+       (cond
+        ((stringp elem)
+         elem)
+        ((eq (dom-tag elem) 'script)
+         "")
+        (t
+         (dom-texts elem separator))))
+     (dom-children node)
      (or separator " "))))
 
 (defun dom-child-by-tag (dom tag)